home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #1 / Amiga Plus 1999 #1.iso / System-Boost / Graphics / PGs_Companion / InstallMe < prev    next >
Encoding:
Text File  |  1998-06-18  |  5.6 KB  |  243 lines
  1. ; Install Genics Companion release 1, v1.0
  2. ; $VER: InstallMe v1.0
  3.  
  4. ; Script by Ben Matthew 31-05-98
  5.  
  6. (message
  7.     (cat
  8.         "Welcome to the Photogenics Companion installation!\n\n"
  9.         "This package has been produced to further your\n"
  10.         "enjoyment of Photogenics 2 by making a few changes\n"
  11.         "to your current setup.  Amongst these changes is a\n"
  12.         "patch to v2b.  You MUST have your original disc or\n"
  13.         "disks to hand in order to apply this patch as it will\n"
  14.         "only work with the original program\n\n"
  15.         "All other changes will work without the patch...\n"
  16.     )
  17. )
  18.  
  19. (message 
  20.     (cat
  21.         "Photogenics Companion Release 1 for Photogenics II\n"
  22.         "--------------------------------------------------\n\n"
  23.         "By Ben Matthew, 1st June 1998.\n\n"
  24.         "All original copyrights are acknowledged\n\n"
  25.         "Photogenics is Copyright © 1996-7 by Almathera and\n"
  26.         "Paul Nolan.  All rights reserved\n\n"
  27.         "This update is freely distributable but has been released\n"
  28.         "under the genre of GuiltWare.  Please see help files\n"
  29.     )
  30. )
  31.         
  32. (set DestDir (askdir
  33.     (prompt ("Where do you have Photogenics 2 installed?"))
  34.     (default "Photogenics:")
  35.     (help "Simply locate the folder on your hard disk where Genics II is")
  36. ))
  37.  
  38. (set SourceDir (askdir
  39.     (prompt ("Where is your original Photogenics disc?"))
  40.     (default "PGSCD:")
  41.     (help "Simply locate the folder on your hard disk where Genics II is")
  42. ))
  43.  
  44. (set FPU (askchoice (choices  "Yes" "No")
  45.             (prompt "Do you have a FPU on your machine?")
  46.             (help "If you have a full 68040 (not 680EC40 or 680LC40) or a 68060 then you will have a FPU.  If you have a 68030 accelerator (such as a Blizzard IV) you may or may not have a FPU.  Check your user manual.")
  47.             (default 0)
  48.     )
  49. )
  50.  
  51. ; FPU = 0, got a fpu.  FPU = 1, no fpu
  52.  
  53. (set OPTS (askoptions (choices  "Patch Exe to 2b" "Update GIOs" "Update Effects" "Update Help Files" "Update Widget Interface")
  54.             (prompt "What parts of the installation do you want to do?")
  55.             (help "No help")
  56.             (default 31)
  57.     )
  58. )
  59.  
  60. (if (IN OPTS 0)
  61. (
  62.     ; Patch exe
  63. ;    (copyfiles (confirm) (prompt "Backing up old Executable...") (help "None") (source (tackon DestDir "photogenics")) (dest DestDir) (newname "photogenics.old") (infos) (optional "nofail") )  
  64. ;    (run (cat         "spatch -o" 
  65. ;                    (tackon DestDir "photogenics ") 
  66. ;                    "-pPatch_2_To_2b.pch "
  67. ;                    (tackon SourceDir "photogenics")
  68. ;            )
  69. ;            
  70. ;            (prompt "Patching main executable...")
  71. ;            (confirm)
  72. ;            (help "None")
  73. ;    )
  74.  
  75.     (message
  76.         (cat
  77.             "-- Important Notice -- \n\n"
  78.             "I have received some nasty bug reports about the main\n"
  79.             "2b patch and so have decided to remove it from this\n"
  80.             "compilation for the time being...\n\n"
  81.             "However the patch is still supplied (albeit without\n"
  82.             "the installer) so die-hards are welcome to try it out\n"
  83.             "- but with a strong warning that you computer may\n"
  84.             "decided to spontaneously reboot without provacation!\n\n"
  85.             "All the rest of this distribution is solid however and\n"
  86.             "you should not have any concerns about installing....\n"
  87.         )
  88.     )
  89.     
  90.     (copyfiles
  91.         (prompt "Updating rexx library...")
  92.         (source "data/libs/pgsrexx.library")
  93.         (dest (tackon DestDir "data/libs"))
  94.         (optional "nofail")
  95.         (confirm)
  96.         (help "None")
  97.     )
  98.  
  99.     (if (= FPU 0)
  100.         (copyfiles
  101.             (prompt "Updating main library (FPU version)")
  102.             (source "data/libs/pgs.libraryFPU")
  103.             (dest (tackon DestDir "data/libs"))
  104.             (newname "pgs.library")
  105.             (optional "nofail")
  106.             (confirm)
  107.             (help "None")
  108.         )
  109.     )
  110.     
  111.     (if (= FPU 1)
  112.         (copyfiles
  113.             (prompt "Updating main library (Non-FPU version)")
  114.             (source "data/libs/pgs.library")
  115.             (dest (tackon DestDir "data/libs"))
  116.             (newname "pgs.library")
  117.             (optional "nofail")
  118.             (confirm)
  119.             (help "None")
  120.         )
  121.     )
  122. )
  123. )
  124.  
  125. (if (IN OPTS 1)
  126. (
  127.     ;  Update GIOs
  128.     (copyfiles
  129.         (prompt "Updating GIOs...")
  130.         (source "data/gio")
  131.         (files)
  132.         (infos)
  133.         (pattern "#?")
  134.         (confirm)
  135.         (help "None")
  136.         (dest (tackon DestDir "data/gio"))
  137.     )
  138. )
  139. )
  140.  
  141. (if (IN OPTS 2)
  142. (
  143.     ;  Update Fx
  144.     (copyfiles
  145.         (prompt "Updating effects...")
  146.         (source "data/effects")
  147.         (files)
  148.         (infos)
  149.         (pattern "~(Fractal.efx)")
  150.         (confirm)
  151.         (help "None")
  152.         (dest (tackon DestDir "data/effects"))
  153.     )
  154.     
  155.     (if (= FPU 0)
  156.         (copyfiles (prompt "Updating special Fractal effect (FPU)...") (confirm) (help "None") (source "data/effects/Fractal.efx") (dest (tackon DestDir "data/effects") ) )
  157.     )
  158. )
  159. )
  160.  
  161. (if (IN OPTS 3)
  162. (
  163.     ;  Update Help
  164.     (copyfiles
  165.         (prompt "Updating help files...")
  166.         (source "data/help")
  167.         (files)
  168.         (infos)
  169.         (pattern "#?")
  170.         (confirm)
  171.         (help "None")
  172.         (dest (tackon DestDir "data/help"))
  173.     )
  174.     
  175.     (copyfiles
  176.         (prompt "Updating help files...")
  177.         (source "data/help/efx")
  178.         (files)
  179.         (infos)
  180.         (pattern "#?")
  181.         (confirm)
  182.         (help "None")
  183.         (dest (tackon DestDir "data/help/efx"))
  184.     )
  185.     
  186.     (copyfiles
  187.         (prompt "Updating help files...")
  188.         (source "data/help/giorexx")
  189.         (files)
  190.         (infos)
  191.         (pattern "#?")
  192.         (confirm)
  193.         (help "None")
  194.         (dest (tackon DestDir "data/help/giorexx"))
  195.     )
  196. )
  197. )
  198.  
  199. (if (IN OPTS 4)
  200. (
  201.     (copyfiles
  202.         (prompt "Updating Widget...")
  203.         (source "data/widget/Widget.library")
  204.         (dest "SYS:Classes")
  205.         (confirm)
  206.         (help "None")
  207.     )
  208.     
  209.     (copyfiles
  210.         (prompt "Updating Widget...")
  211.         (source "data/widget/Widget")
  212.         (files)
  213.         (infos)
  214.         (pattern "#?")
  215.         (help "None")
  216.         (dest "Sys:Classes/Widget")
  217.         (confirm)
  218.     )
  219.     
  220.     (copyfiles
  221.         (prompt "Updating Widget graphics...")
  222.         (source "data/widget/wgtgfx")
  223.         (files)
  224.         (infos)
  225.         (pattern "#?")
  226.         (help "None")
  227.         (dest "Sys:Classes/wgtgfx")
  228.         (confirm)
  229.     )
  230.  
  231. )
  232. )
  233.  
  234. (message 
  235.     (cat
  236.         "Companion has now been successfully installed!\n\n"
  237.         "Please read the updated help files for info\n"
  238.         "on the changes\n\n"
  239.         "Also check out the Companion web pages at:\n"
  240.         "http://www.bmatthew.demon.co.uk/genics/\n"
  241.         "email: ben@bmatthew.demon.co.uk\n"
  242.     )
  243. )